COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 AAM Puzzle
C00004 00003	 Triang
C00005 00004	 NIL
C00006 ENDMK
C⊗;
; AAM Puzzle
(fasload triang)
(timit)
Timing performed on Saturday 05/29/82 at 03:16:47.
Cpu Time = 98.101
Elapsed Time = 153.4
Wholine Time = 138.183332
GC Time = 6.803
Load Average Before  = 0.220208287
Load Average After   = 0.802041054
Average Load Average = 0.51112467
NIL 
Timing performed on Saturday 05/29/82 at 03:20:11.
Cpu Time = 98.095
Elapsed Time = 145.666666
Wholine Time = 130.733334
GC Time = 1.053
Load Average Before  = 0.56515789
Load Average After   = 0.893422365
Average Load Average = 0.72929013
NIL 
;;; New SAIL
Timing performed on Wednesday 10/12/83 at 23:10:22.
Cpu (- GC) Time = 86.029
Elapsed Time = 413.183334
Wholine Time = 144.9
GC Time = 6.345
Load Average Before  = 1.7579943
Load Average After   = 2.95534134
Average Load Average = 2.35666782
NIL 
;;; Triang

D3 7/5/83
Display up, Common Lisp arrays
Elapsed	252.0
GC	.212
CPU	252.0
pgflts	28
swpwrts	10

D2
Without Interrupts, Common Lisp array
Elapsed	1510.0
GC	.703
CPU	1510.
pgflts	28

D3 7/5/83
Display up, Interlisp arrays
Elapsed	676.0
GC	.181
CPU	.676
pgflts	32

;;; NIL
TRIANGLE

Fixnum arithmetic.  Named arrays turned into vectors (1-d arrays),
in special variables; e.g.,
(defparameter *b*
  (make-array 37))
and all the references turned to AREF, STORE to SETF.  FILLARRAY in setups
turned to REPLACE (there was one fewer element in the list than in the
array!).  (cdr (listarray 'sequence)) turns into
(replace (make-list (1-& sequence-length)) *sequence* :start2 1), and
sequence-length is defined with *sequence*, by
(defconstant sequence-length 14).
cpu=1791.88,elapsed=1797.71,pf=238

Try 2:  change AREF to SGVREF.
cpu=649.73,elapsed=652.35,pf=230